COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 
C00008 ENDMK
C⊗;
 

(PROGN
(COND ((STATUS FEATURES NEWIO)
       (DEFUN ALT-EMACRO (ASCII ACTION)
	      (SSTATUS TTYINT ASCII
		       (LIST 'LAMBDA (LIST NIL NIL)
			     (LIST '%EVALUATE ACTION)
 			     (LIST '*THROW ''%EDITOR-TOPLEVEL t))))
       (DEFUN EMACRO (ASCII ACTION)
	      (SETSYNTAX ASCII 'SPLICING (LIST 'LAMBDA () (LIST '%EVALUATE ACTION)
					       (subst 
						() 
						() 
						'(*throw '%editor-toplevel t))))
	      (APPLY 'SSTATUS (LIST 'SYNTAX ASCII 133984.))
	      T))
      (T (DEFUN EMACRO (ASCII ACTION) 
		(SETSYNTAX ASCII 'SPLICING (LIST 'LAMBDA NIL ACTION))
		T)))
(EMACRO  471. ''W)

(EMACRO  503. ''W)

(EMACRO  453. ''EXIT)

(EMACRO  485. ''EXIT)

(EMACRO  468. ''TOP) 

(EMACRO  500. ''TOP) 

(EMACRO  452. ''DELETE) 

(EMACRO  484. ''DELETE) 

(EMACRO  208. ''P) 

(EMACRO  240. ''P) 

(EMACRO  336. ''PS) 

(EMACRO  368. ''PS) 

(EMACRO  464. ''PP) 

(EMACRO  496. ''PP) 

(EMACRO  467. ''SAVE) 

(EMACRO  499. ''SAVE) 

(EMACRO  469. ''↑) 

(ALT-EMACRO  204. ''L)

(ALT-EMACRO  236. ''L)

(EMACRO  332. ''LS)

(EMACRO  364. ''LS)

(EMACRO  466. ''NX) 

(EMACRO  498. ''NX) 

(EMACRO  460. ''BK) 

(EMACRO  492. ''BK) 

(EMACRO  454. ''F) 

(EMACRO  486. ''F) 

(EMACRO  450. ''BF) 

(EMACRO  482. ''BF) 

(EMACRO  338. ''REMATCH) 

(EMACRO  370. ''REMATCH) 

(EMACRO  333. ''MATCH) 

(EMACRO  365. ''MATCH) 

(EMACRO  463. ''OK) 

(EMACRO  495. ''OK) 

(EMACRO  409. ''LI) 

(EMACRO  441. ''LI) 

(EMACRO  444. ''LO) 

(EMACRO  476. ''LO) 

(EMACRO  479. ''RI) 

(EMACRO  511. ''RI) 

(EMACRO  446. ''RO) 

(EMACRO  478. ''RO) 

(EMACRO  432. 0.) 

(EMACRO  433. 1.) 

(EMACRO  434. 2.) 

(EMACRO  435. 3.) 

(EMACRO  436. 4.) 

(EMACRO  437. 5.) 

(EMACRO  438. 6.) 

(EMACRO  439. 7.) 

(EMACRO  440. 8.) 

(EMACRO  441. 9.) 

(EMACRO  304. 0.) 

(EMACRO  305. -1.) 

(EMACRO  306. -2.) 

(EMACRO  307. -3.) 

(EMACRO  308. -4.) 

(EMACRO  309. -5.) 

(EMACRO  310. -6.) 

(EMACRO  311. -7.) 

(EMACRO  312. -8.) 

(EMACRO  313. -9.) 

(EMACRO  472. ''EXIT) 

(EMACRO 461. ''MACEX)

(EMACRO 493.  ''MACEX)

(COND ((STATUS FEATURES NEWIO)
       (DEFUN IMACRO (ASCII ACTION)
	      (SETSYNTAX ASCII 'macro
			 (LIST 'LAMBDA NIL ACTION))
	      (APPLY  'SSTATUS (LIST 'SYNTAX ASCII 198976.))
	      ACTION) )
      (T (DEFUN IMACRO (ASCII ACTION) 
		(SETSYNTAX ASCII 'macro
			   (LIST 'LAMBDA NIL ACTION))
		ACTION) ))

(DEFPROP PROG
	 (PROG NIL 
	       (%EVALUATE 'TOP)
	       (%EVALUATE '(MATCH (*A (*B) *C)))
	       (COND ((EQ (CAAR *C) 'PROG) (RETURN NIL)))
	       (%EVALUATE '(PR (*A (*B) (PROG NIL *C))))
	       (RETURN T))
	 ATOMIC-EDITCOMMAND) 

(DEFPROP QUOTE
 (SETSYNTAX 33. 'MACRO 
       (LIST '$R
	     '?
	     (LIST 'LAMBDA
		   '(X)
		   (LIST 'EQ
			 'X
			 (LIST 'QUOTE (READ)))))) 
	 ATOMIC-EDITCOMMAND) 

(DEFPROP UNQUOTE (SETSYNTAX 33. 2. 33.) ATOMIC-EDITCOMMAND) 

(EDITCOMMAND FASTMAC  
	     (EREAD EDIT IN DSK (AID RPG))(IOC Q)
	     (EVAL (READ))
	     (SETQ ↑Q NIL)
	     (APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))T) T)

(IMACRO 206. '(act))
(IMACRO 238. '(act))
(IMACRO 334. '(normal))
(IMACRO 366. '(normal))

(defprop macro-expand (macex fas dsk (mac lsp)) autoload)

(defprop macex
 (progn
   (setq save-macros t)
   (%evaluate (list 'cr (macro-expand %/#ce)))
   t) atomic-editcommand)

(defun atomic-command (fun)
       (putprop fun
		`(progn
		  (setq save-macros t)
		  (%evaluate (list 'cr (,fun %/#ce)))
		  t) 'atomic-editcommand))